home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / bbs / cnet5demo.lha / cnet / ircrexx / voicetrap.rexx < prev   
OS/2 REXX Batch file  |  1999-03-23  |  641b  |  27 lines
  1. /* ORC - TRAP JOIN                                                  */
  2. /* do automatic voice on moderated channel, check no-voice list     */
  3. /* '/alias <password> trap1----005 voicetrap.rexx JOIN              */
  4. options results
  5. parse arg orcport user cmd args
  6. parse var user ':'nick'!'site
  7. parse var args ':'args
  8. fname = 'ram:novoice.txt'
  9.  
  10.  
  11. voice = 1
  12.  
  13. if Open(fh, fname, 'r') then do
  14.   do while ~eof(fh) & (voice == 1)
  15.     if pos(readln(fh), user) then voice = 0
  16.   end
  17.   x = Close(fh)
  18. end
  19.  
  20. if show('P', orcport) & (voice == 1) then do
  21.   address value orcport
  22.     cnetirccmd '/"'user' 'cmd' 'args
  23.     cnetirccmd '/mode 'args' +v 'nick
  24. end
  25.  
  26.  
  27.